home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD020d.dsk / LOGO.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  50 lines
  1. 10  REM ************
  2. 20  REM * SOFTGRAPH LOGO
  3. 30  REM ************
  4. 40  ONERR  GOTO 460
  5. 50  POKE  -16368,0: POKE  -16304,0
  6. 60  IF  PEEK( -16384) >127  THEN 490
  7. 70  DIM AM(16,2)
  8. 80  FOR X = 1 TO 16
  9. 90  READ AM(X,1),AM(X,2): NEXT X
  10. 100 X = 0
  11. 110  FOR T = 1 TO 50: GOSUB 420: FOR DL = 1 TO 55: NEXT DL
  12. 120  IF  PEEK( -16384) >127  THEN 490
  13. 130  NEXT T
  14. 140  IF  PEEK( -16384) >127  THEN 490
  15. 150  HCOLOR= 5
  16. 160  FOR XP = 5 TO 269  STEP 6
  17. 170  HPLOT XP,80 TO XP,146
  18. 180  FOR DL = 1 TO 16: NEXT DL
  19. 190  IF XP = 269  THEN 230
  20. 200  GOSUB 420
  21. 210  HPLOT XP +6,80 TO XP +6,146
  22. 220  FOR DL = 1 TO 16: NEXT DL
  23. 230  NEXT XP
  24. 240  IF  PEEK( -16384) >127  THEN 490
  25. 250  FOR YP = 80 TO 146  STEP 6
  26. 260  HPLOT 5,YP TO 270,YP
  27. 270  GOSUB 420
  28. 280  FOR DL = 1 TO 45: NEXT DL
  29. 290  NEXT YP
  30. 300  FOR T = 1 TO 30: GOSUB 420: FOR DL = 1 TO 55: NEXT DL
  31. 310  IF  PEEK( -16384) >127  THEN 490
  32. 320  NEXT T
  33. 330  GOSUB 420: POKE 250,146: POKE 251,79: CALL 16770
  34. 340  FOR T = 1 TO 60: GOSUB 420: FOR DL = 1 TO 55: NEXT DL
  35. 350  IF  PEEK( -16384) >127  THEN 490
  36. 360  NEXT T
  37. 370  GOTO 490
  38. 380  DATA  0,96,135,96,14,97,149,97
  39. 390  DATA 28,98,163,98,42,99,177,99
  40. 400  DATA 56,100,191,100,70,101,205,101
  41. 410  DATA 84,102,219,102,98,103,233,103
  42. 420 X = X +1: IF X >16  THEN X = 1
  43. 430  POKE 250,AM(X,1): POKE 251,AM(X,2)
  44. 440  CALL 16840
  45. 450  RETURN 
  46. 460  POKE 216,0:ER =  PEEK(222)
  47. 470  IF ER = 255  THEN 490
  48. 480  STOP 
  49. 490  POKE  -16368,0: TEXT : HOME 
  50. 500  PRINT : PRINT  CHR$(4);"RUN SOFTGRAPH"